Komputer for Alle 1998 #13/Skiva nr 13-1998 (Svart).iso/nksdemo.exe/skepp.dxr/00142.ls

Text File | 1998-10-02 | 487 b | 13 lines

on fireKanon
  global skottILuften, skottPosH, skottPosV, kanonVinkel
  if (the keyCode = 49) and (skottILuften = 0) then
    puppetSound(2, 224)
    set kanonVinkel to the memberNum of sprite 20
    set skottILuften to 1
    set the memberNum of sprite 23 to the memberNum of sprite 20 + 10
    set the locH of sprite 23 to getAt(skottPosH, the memberNum of sprite 20 - 1)
    set the locV of sprite 23 to getAt(skottPosV, the memberNum of sprite 20 - 1)
    updateStage()
  end if
end